home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / dev / e / makeefile.lha / MakeEFile_and_src / Examples / PModules / astartup.e < prev    next >
Encoding:
Text File  |  1994-04-19  |  1007 b   |  44 lines
  1. /*
  2.  * Module EPP - AStartup - adapté de l'assembleur
  3.  *
  4.  * Permet d'obtenir les variables _argc, _argv pour le langage E.
  5.  *
  6.  * $VER: AStartup EPP 1.2 (16.04.94) (17.04.94)
  7.  *
  8.  * Utilisation:
  9.  * ¯¯¯¯¯¯¯¯¯¯¯
  10.  * 1) Appelez _startup() en premier dans votre procédure main() pour
  11.  *    initialiser _argc & _argv,
  12.  * 2) le programme E lui-même,
  13.  * 3) Finir OBLIGATOIREMENT par la procédure _exit(<retcode>) pour
  14.  *    libérer ce qui a été ouvert par _startup()
  15.  *
  16.  * NOTE IMPORTANTE:
  17.  * _database EST RESERVE. NE JAMAIS LE MODIFIER, _exit(n) PLANTERAIT!!!
  18.  *
  19.  * _argc & _argv SONT RESERVES A LA LECTURE (READ-ONLY)
  20.  *
  21.  */
  22.  
  23. DEF _argc=NIL:LONG, _argv=NIL:PTR TO LONG, _database=NIL:LONG
  24.  
  25. PROC _astartup()
  26.   DEF error
  27.   PEA    error
  28.   PEA    _database
  29.   PEA    _argv
  30.   PEA    _argc
  31.   MOVE.L dosbase,-(A7)
  32.   MOVE.L wbmessage,-(A7)
  33.   PEA    arg
  34.   INCBIN 'PMODULES:User/astartup/astartup.bin'
  35.   LEA    28(A7),A7
  36. ENDPROC error
  37.  
  38. PROC _exit(n)
  39.   PEA    _database
  40.   INCBIN 'PMODULES:User/astartup/exit.bin'
  41.   ADDQ.L #4,A7
  42.   CleanUp(n)
  43. ENDPROC
  44.